/*
+----------------------------------------------------------------------------+
!                             FICHA TECNICA DO PROGRAMA                      !
+----------------------------------------------------------------------------+
!Programa          ! REI02G04                                                !
+------------------+---------------------------------------------------------+
!Descricao         ! Inicializador de browse para carregar o aprovador       !
!                  ! no pedido de compra.                                    !
+------------------+---------------------------------------------------------+
!Autor             ! REIVAX - DANILO F. RAMOS                                !
+------------------+---------------------------------------------------------+
!Data de Criacao   ! 29/10/10                                                !
+------------------+---------------------------------------------------------+
!   ATUALIZACOES                                                             !
+-------------------------------------------+-----------+-----------+--------+
!   Descricao detalhada da atualizacao      !Nome do    ! Analista  !Data da !
!                                           !Solicitante! Respons.  !Atualiz.!
+-------------------------------------------+-----------+-----------+--------+
!   									    !           !           !        !
!                                           !           !           !        !
+-------------------------------------------+-----------+-----------+--------+
!                                           !           !           !        !
!                                           !           !           !        !
+-------------------------------------------+-----------+-----------+--------+ 
*/ 


User Function REI02G04()
//INDICE 4 : CR_FILIAL+CR_TIPO+CR_NUM+CR_LIBAPRO+CR_STATUS
//INDICE 5 : CR_FILIAL+CR_TIPO+CR_NUM+CR_STATUS                                                                                                                   
return(UsrRetName(POSICIONE("SCR",5,xFilial("SC7")+"PC"+PADR(SC7->C7_NUM,50)+"03","CR_USER")))